home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh94b.d64
/
3. col.+spr.ed.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
572b
|
11 lines
0 V=53248:PRINT"SPRITE ED. ODER ZEICHENFARBEN SETZEN:":INPUT"(S/Z)";A$:IFA$="Z"THEN8
1 POKEV+28,0:POKE2040,11:POKEV,255:INPUT"MULTICOL (J/N)";A$:IFA$="J"THENGOSUB7
2 PRINT"[147]123456781234567812345678";:POKEV+1,200
3 FORT=1TO21:PRINTSPC(23);T:NEXTT:INPUTA$:XX=25:POKEV+21,1
4 POKEV+39,4:PRINT"";:FORT=0TO20:FORTT=0TO2:Y=0:FORN=7TO0STEP-1
5 X=PEEK(1024+T*40+TT*8+(7-N)):IFX<>32THENY=Y+2^N
6 NEXTN:PRINT"[145]";SPC(XX+TT*4);Y:POKE704+E,Y:POKE4096+E,Y:E=E+1:NEXTTT:PRINT:NEXTT:END
7 FORR=1TO3:PRINT"FARBE";R;" :(0-15)";:INPUTA:POKEV+36,A:NEXTR:POKEV+28,1:RETURN
8 POKE198,0:INPUT"[147]ZEICHEN:";A$:INPUT"FARBE:(0-15)";F:POKE2816+PEEK(1034),F:POKE55306,F
9 PRINT" <TASTE>":POKE198,0:WAIT198,1:IFPEEK(1034)<>32THEN8